home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-6.dms / in.adf / Install.run / GOLDEDDATA / arexx / switch.ged < prev   
Encoding:
Text File  |  1996-11-10  |  1.7 KB  |  79 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Insert switch block.               */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. arg doComment                               /* set to TRUE for header  */
  6.  
  7. OPTIONS RESULTS                             /* enable return codes     */
  8.  
  9. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  10.     address 'GOLDED.1'
  11.  
  12. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  13.  
  14. if (RC ~= 0) then
  15.     exit
  16.  
  17. OPTIONS FAILAT 6                            /* ignore warnings         */
  18.  
  19. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  20.  
  21. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  22.  
  23. 'QUERY CAT'
  24. GERMAN = (RESULT = "deutsch")
  25.  
  26. if (GERMAN) then do
  27.  
  28.     ASKEXPR = "switch-Bedingung - z.B. (code)"
  29.     ASKHEAD = "case-Ausdruck - z.B. 'A':"
  30. end
  31. else do
  32.  
  33.     ASKEXPR = "switch expression - e.g. (code)"
  34.     ASKHEAD = "case expression - e.g. 'A':"
  35. end
  36.  
  37. 'REQUEST TITLE "' || ASKEXPR || '" OLD="()" STRING VAR SWITCH'
  38.  
  39. if (RC = 0) then do
  40.  
  41.     'INSERT LINE'
  42.     'TEXT STAY T="switch ' || SWITCH || ' {"'
  43.     'DOWN'
  44.     'INSERT LINE'
  45.     'TEXT STAY T="}"'
  46.     'INSERT LINE'
  47.     'DOWN'
  48.     'INSERT LINE'
  49.     'TAB'
  50.  
  51.     'REQUEST TITLE "' || ASKHEAD || '" OLD=":" STRING VAR CASE'
  52.  
  53.     if (RC = 0) then do
  54.  
  55.         'TEXT STAY T="case '  || CASE '"'
  56.         'DOWN'
  57.         'INSERT LINE'
  58.         'TAB'
  59.         'TEXT STAY T="break;"'
  60.         'INSERT LINE'
  61.         'INSERT LINE'
  62.         'DOWN'
  63.     end
  64. end
  65.  
  66. /* ---------------------------- END OF YOUR CODE ----------------------- */
  67.  
  68. 'UNLOCK' /* VERY important: unlock GUI */
  69.  
  70. exit
  71.  
  72. SYNTAX:
  73.  
  74. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  75.  
  76. 'UNLOCK'
  77.  
  78. exit
  79.